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Ztitle 'PUBSUBS = Subroutines for Handling PUBs' 
module pubsubs ( 
ident="V04-000') = begin 


! 
Lee REAR EERE EEA AEE EERE ERE EEE 
' 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


FURNISHED UNDER A LICENSE AND MAY BE USED AND COP 
THE TERMS OF H Ll 


IS IED 
IN ACCORDANCE WITH ie AND abe Me | 


® 

* 

*® 

* 

*® 

® 

® 

*® 

' * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
* 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

t 

*® 

t 

® 

® 

® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 
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0 :® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
. :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

'® 

'® 
S PETTITT LLL LLL LLL LLL Litiiiiiitiiiiitiil 
0 ' 
0 
90 ++ 
+4 ; Facility: VAX/VMS Telephone Facility, Subroutines for Handling PUBs 
003 Abstract: This module provides the routines necessary for handling 
0034 Phone Unit Blocks (PUB). A PUB is used to describe the 
O03? characteristics of one of the phone units that the user 


is talking to. ALL information about that unit is in 
its PUB. 

Environment: 

Author: Paul C. Anagnostopoulos, Creation Date: 18 November 1980 

Modified By: 


v03-001 PCA0046 Paul Anagnostopoulos 26-Mar-1982 
Minor changes to convert from process name to user name. 
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PUBSUBS PUBSUBS = Subroutines for Handling PUBs 16-Sep-1984 02:17:10 AX-11 Bliss-32 V4.0-742 P P 
v04~000 Module Declarations ; 10-88-1984 49:55:31 EPMONE. SRCSPUBSUBSB3e+ 1 oe af V 
: 20 0008 ! Asbttl ‘Module Declarations’ ; 
; 3 0051 | i Libraries and Requires: ; 
; 54 bo88 | ; 
s 2 0054 1 Library ‘sys$library:starlet.l32'; ; 
: 28 B9R2 : require ‘phonereq'; : 
: 58 0385 1! ; 
: 2B Baeo : Table of Contents: : 
; 61 0388 ; 
; 6¢ 0389 1 forward routine : 
Pe 0390 1 phn$make_pub, : 
; (64 0391 1 phn$make_tsb, ; 
; 69 0338 1 phn$redundant, : 
; & 0393 1 tae eng hte $ 
; 6 «OO 0394 1 phn$cm torge " : 
; «668 0395 1 phn$kilT_pub: novalue, : 
> 69 0396 1 phn$make_ctl: novalue, ; 
; a $344 : phn$kill_ctl: novalue; : 
: 722 0399 1! : 
: o? o's : Macro Definitions: : 
: 05 0402 1 ' The following macro is used in the PHNSMAKE_TSB routine. ; 
: 77 0404 1 ; 
; wf M0405 1 macro add_token(length,pointer) = : 
; 6 2 Bees : ( inc (ntCtsb_w_tkncount]); 3 
° mn | Ps 
: 81 Mm 0408 1 bind : 
: ag 4 4 +4 : token_dsc = ntCtsb_q_tkndsc,.ntCtsb_w_tkncount]]: descriptor; ‘ 
: Ba M0411 1 token_dscl0,0,32,0] = Length; ; 
; @ M0412 1 token_dsc(ptrd = .complete_spec_dscC(ptr] + .complete_spec_dscLlen]; : 
: 686 M0413 1 ch$move(length,pointer,.token_dsc(ptrJ); 3 
3 4 2 Bele : Couplete,s90t Sesklenl = .complete_spec_dscClen] + length; : 
; end; 3 
; M0416 1) : 
; 90 0417 1 2%; : 
; W 0418 1 
: 92 0419 1! 
3 o7 Bese : : External References: 
; 95 0422 1 
; 04235 1 external routine . 
: Ww 0424 1 Lib$free_vm: addressing_mode(general), 
; 0425 1 Het eed addressing_mode(general), 
3 190 be5$ ’ Lib$tparse: addressing_mode(general); 
> 101 0428 1 external Literal 
; 18 7h : Lib$S_syntaxerr; 
: 104 0431 1! 
: igo be 8s ! : Own Variables: 


0459 
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p-1984 
p-1984 
Rsbttl *PHNSMAKE _PUB = Create New Phone Unit Block’ 


! Functional Description: ‘ 

his routine is called to create a new PUB. The PUB is allocated 
initialized, and chained onto the end of the PUB chain. By chaining 
onto the end, we keep PUBs in the order of creation. 


05:12:30 VAX-11 Bliss-32 V4.0-742 
12:53:31 CPHONE .SRCJPUBSUBS .B32;1 


Formal Parameters: 


target_spec Address of descriptor of complete node/user name spec 
of person or node we need the PUB for. 
pub_address Address of longword in which to return new PUB address. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
phn$_badspec Invalid target specification syntax. 


Side Effects: 


global routine phn$make_pub(target_spec,pub_address) = begin 


bind 
target_spec_dsc = .target_spec: descriptor; 


local 
status: long, - 
np: ref pub, ! Pointer to the new PUB. 
c: ref ctl; 


! We begin by allocating memory for the new PUB. 


status = Lib$get_vm(Zref(pub_k_size),np); 
check (.status); 


! Now we clear the PUB and fill in its length. 


ch$fill(O,pub_k_size,.np); 
npCpub_t_length] = ob. k. size: 


! Now we initialize the TSB portion of the PUB with the target spec 
! we have been passed. If that fails, just delete the stupid thing 
! and return an error status. 


status = phn$make_tsb(.target_spec,np[pub_b_tsb]); 
if .status eqlu phin$_badspec then ( 
phn$kill_pubT.np); 
return phn$_badspec; 


): 
check (.status); 


Page 
. (3) 
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PUBSUBS PUBSUBS = Subroutines for Handling PUBs 18-Sep-19 4 0g: 12:10 AX-11 Bliss-32 V4.0-742 Page 4 P 
v04-000 PHNSMAKE_PUB = Create New Phone Unit Block 14-Sep-1984 :53:3 PHONE .SRCJPUBSUBS.B32; 1 (3) | V 
s 165 0491 
: 196 983 ! Now we mark the PUB temporary (all new PUBs are marked as such). 
; 198 peed npCpub_v_temporary] = true; 
; 170 0496 ' Now we allocate an initial CTL buffer with no text in it. Thus we will 
s 71 0497 ! be prepared to add text as the person talks. We specify this CTL as 
; te 0498 ! the top of the viewport. 
.. er 0499 
: (174 0500 phn$make_ctl(0,c); 
; 75 0501 npCpub_q-ctlhead0] = npCpub_q_ctlhead1] = npCpub_q_ctlhead0); 
: 176 b208 insquet.c,np[pub_q_ctlhead0J); 
: 177 050 ing (nptpub_t_ctTcountd); 
: 178 3208 : npCpub_l_topctl)] = .npCpub_l_ctlcount); 
: 180 0506 2 ! Finally, we queue the PUB at the end of the PUB chain and return its | 
; «(181 0507 2 ! address as requested. 
3 ies 0508 § 
; 18 0509 insque(.np,.phn$gq_pubhead(1]); 
s 186 0510 2 .pub_address = .np; 
> «(185 0511 2 return phn$_ok; 
: 186 0512 2 
: 187 0513 1 end; 


LE PUBSUBS PUBSUBS - Subroutines for Handling PUBs 
\V04=-000\ 


TRN PHNS_DIRCAN, PHNS_ FACSCAN | 
-EXTRN PHNS_HELPCAN, PHNS_ HUNGUP 
-EXTRN PHNS"JUSTRANG, PHNS_LOGGEDOFF | 
. PHNS_RING 


INGMAIL 
-EXTRN PHNS$_BADCMD, PHNS_BADHELP 
.EXTRN PHN$_BADMAILCMD 
EXT P hifinS BADSPEC | 


EXT 
“EXTRN PHNS$~IVREDUNCALL 
SEXTRN PHNS"LINKERROR, PHNS NEEDUSER 


-EXTRN PHNS-NOPROC, PHNS ROTCONV 

TEXTRN PHNS-ONLYNODE, PHRS$_PHONEBUSY 
-EXTRN PHNS"REMOTEERROR 

-EXTRN PHNS"TARGTERM, PHNS_UNPLUGGED 
-EXTRN PHNS_BADTERM, PHNS SHAREDMBX 
TEXTRN PHNS-INPUTTERM, PHN$GQ_NODE_NAME 
-EXTRN PHNS$GQ_SWITCH HOOK 

-EXTRN PHNSGL-VIEWPORT SIZE 

-EXTRN PHNSGB-SCROLL, PHNS$GQ_PUBHEAD 
-EXTRN PHNSGB"FLAGS, LIBSFREE_VM 
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PUBSUBS PUBSUBS = Subroutines for Handling PUBS 16-Sep- 1384 02: 1 19 AX-11 Bliss-32 V4.0-742 
v04-000 PHNSMAKE_PUB = Create New Phone Unit Block 1a-Sep- 1 1 PHONE . SRC PUBSUBS -832;1 
.EXTRN LIBSGET_VM, eb ABSTRARSE 
~EXTRN LIBS $_SYRTAX 
.PSECT $CODE$,NOWRT,2 
03FC 00000 .ENTRY PHNSMAKE_PUB, Save R2,R3,R4,R5,R6,R7,R8,R9 
59 000000006 8F DO 00002 MOVL #PHNS BABSP EC, RO 
58 000000006 00 i 00009 MOVAB LIBSSIGNA Pees 
5E 0c ¢ 90019 SUBL2 #12, SP 
04 AE 9F 0001 PUSHAB NP 
04 AE 0110 8F 3C 00016 MOVZWL #72 4(SP) 
04 AE 9F 0001C PUSHAB 4(SPS 
000000006 00 02 FB OOO1F CALLS #2, LIBSGET_ VM 
57 50 pO 00026 MOVL RO, STATUS 
05 57 €8 00029 BLBS STATUS, R 
57 DD 0002C PUSHL ST 
68 01 FB 000¢E CALLS #1, LIBSSIGNAL 
56 04 AE DO 00031 1$: MOVL. NP, R6 
0110 8F 00 6E 00 2¢ 90039 MOVCS #0, (SP), #0, #272, (R6) 
08 Ab 0110 8F %3C 0003D MOVZWL #272 8(R6) 
0C Ab 9F 00043 PUSHAB 12( (RO) 
04 AC DD 00046 PUSHL TARGET_SPEC 
0000v CF 02 FB 00049 CALLS #2, SBHRSMAKE _ TSB 
57 50 D0 0004E MOVL RO, STATUS 
59 57 D1 00051 CMPL = STATUS, R9 
0B 12 00054 BNEG 2$ 
56 DD 00056 PUSHL R6 
0000v CF 01 FB 00058 CALLS #1, PHNSKILL_PUB 
50 59 00 0005D MOVL R9, RO 
04 00060 RET 
05 57 €8 00061 2$: BLBS STATUS, 3$ 
57 DD 00064 PUSHL STATUS 
68 01 FB 00066 CALLS #1, LIBS$SIGNAL 
OOFO C6 04 88 00069 3$: BISB2 #4, 240(R6) 
08 AE 9F O006E PUSHAB 
7E 04 00071 CLRL 
0000v CF 02 FB 00073 CALLS no POHNSMAKE _CTL 
50 0104 C6 9E 00078 MOVAB  260(R6), 
0108 6 50 D0 0007D MOVL RO, 264(R6) 
60 50 DO 00082 MOVL RO. (RO) 
60 08 BE OE 00085 INSQUE aC, (RO) 
50 04 AE DO 00089 MOVL NP, fo 
0100 CO 06 0008D INCL RO) 
010c 8c 100 ¢€O0 p0 00091 MOVL 36(R0)_ 268(RO) 
00006 OF 60 OE 00098 INSQUE (RO), @PHN$GQ PUBHEAD+4 
08 BC 04 AE 00 0009D MOVL NP, @PUB_ADDRESS 
50 000000006 8F DO O00A2 MOVL § #PHNS$_OK> RO 
04 000A9 RET 


3; Routine Size: 170 bytes, Routine Base: $CODE$ + 0000 
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Rsbttl "PHNSMAKE_TSB = Build a Target Specification Block’ 


Functional Description: 
This routine is called to construct a Target Specification Block, 
a data structure containing the complete node and user name 
specification for some person or node we want to communicate with. 


The original version of this routine used TPARSE, but it 
was rewritten by hand because of its frequency of use. 


Formal Parameters: 
target_spec 


The node/user aering in my valid format. 
new_ts Ss e 


The address of the TSB to filled in. 


global data 


! Implicit Outputs: 
global data 


! Returned Value: . ; 
phn$_badspec The capes spec was syntactically incorrect. 


Currently this is never the case. 
Side Effects: 


i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
: Implicit Inputs: 
| 
i 
' 
i 
' 
i 
i 
i 
i 
in 


global routine phn$make_tsb(target_spec,new_tsb) = begin 


bind 
target_spec_dsc = .target_spec: descriptor, 
nt = .new_tsb: tsb, : 
complete_spec_dsc = ntCtsb_q_tkndsc,0]: descriptor; 


local 
status: long, 
spec_ptr: long, spec_ptr2: long, 
spec_end_ptr: (ong; 


j 


s 
Pp 
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§ ! We begin by clearing the new TSB and initializing the complete spec 
! descriptor. 


ch$fill(O,tsb_k_size,nt); 
complete_spec_ ~declptr) = “ntCtsb_t_string]; 


ao 
= 


! Now we look at the target spec and see if it contains a node name. 


spec_ptr = .target_spec_dsc(ptr]; 
spec_end_ptr = .spec_ptr + .target_spec_dscLlen]; 


if ch$find_sub(. starget_ spec dscClen],. target. spec_dsc(ptr]J, 
2,uplit bytet'::')) eqla 0 then 


' The spec does not contain a node name. We will therefore use 
i our node name as the Jefeutt, unless we are not on a DECnet node. 


if -phn$oq. node_name[len] a 0 then 
d_tokén(.phn$gq_node_name[LlenJ, .phn$gq_node_name[ptrJ) 


add_token(0,0) 


else 


else 
' The target spec contains at least one node name. Now we have 
i to scan off the node names and add them to the spec in the TSB. 
i We normalize then by removing blanks and leading underscores. 
i We also add build a descriptor for each one. 


loop ( 
spec_ptr = ch$find_not_ch(.spec_end -Ptry spec. ptr, 
-spec_ptr, 
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if .spec_ sper at 0 then 
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262 = .spec_end_ptr; 

263 spec ptr?’ = “ $find _sub(lspec_ end _ptr-. Spec ptr,.spec ptr, 
264 Sot! 2,uplit byte('::')); 

so? exitif (.spec_ptr2 eqla 0); 

267 if ch$rchar(.spec_ pee? _eqlu ‘_" then 

268 inc (spec~ ptr 

269 add_token(.spec_ptr2-.spec_ptr+2,.spec_ptr); 

270 spec_ptr = .spec_ptr2 + 2; 

in . 

273 ! We have finished precessiee the node names. Now we have to isolate the 
she b235 ! user name (if any), add it to the spec in the TSB, and build a descriptor. 
276 0600 spec_ptr = ch$find pot geht. spec_end_ptr-.spec_ptr, .spec_ptr," '); 

277 0601 if .Spec ptr eqla 

278 0602 spec_ptr = Dn end_ptr 

279 0603 add_token(.spec_end_ptr-.spec_ 4 spec_ptr); 
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| PUBSUBS PUBSUBS = Subroutines for Handling PUBs 16-Sep-1984 02:17:10 AX-11 Bliss-32 V4.0-74 Pa 
v04-000 PHNEMAKE_TSB = Build’ Target Specification Blo le-sep-1984 $5255:57  FAMONE. SRE SBuBsUBs O34 6S 
; wel 0604 ! If the explicit or default home node on the spec is not our node, then 
; 282 0605 ! we need to set the remote flag in the TSB. . 
3 «ge 0606 ‘ 
> 284 0607 begin 
> «285 0608 bind 
; 4] +44 home_node_dsc = nt(tsb_q_tkndsc,.ntCtsb_w_tkncount]-1]: descriptor; 
: 288 0611 ntCtsb_v_remote] = ch$neq(.home_node_dscllen],.home_node_dsc(ptr], 
: 289 0612 3 phn$Sq_node.nameClen}, -pinsgq-node nane(ptri,' '); 
; 290 0613 § end; 
; ow 0614 
; $36 0615 § : If a user name was specified in the spec, we need to set the user 
; 0616 ! flag in the TSB. If none was specified, the Length of the user name 
> 294 0617 2 ! token was set to zero. 
s 295 0618 2 
; <6 0619 3 begin 
: 297 0620 3 bind 
; 443 bese 3 user_name_dsc = ntitsb_q_tkndsc,.ntCtsb_w_tkncount]]: descriptor; 
; 300 0623 3 ntCtsb_v_user] = .user_name_dscClen] nequ 0; 
: 301 0624 2 end; 
; 6O2 0625 2 
3 203 0626 2 return phn$_ok; 
: 304 0627 2 
; 0628 1 end; 
-PSECT $PLIT$S,NOWRT,NOEXE,2 
3A 3A 00000 P.AAA: .ASCII \::\ ; 
3A 3A 00002 P.AAB: .ASCII \::\ 3 
-PSECT $CODE$,NOWRT,2 
OFFC 00000 ~ENTRY emt 138. Save R2,R3,R4,R5,R6,R7,R8,R9,-; 0543 | 
5E 04 C2 00002 SUBL2 #4, SP 3 
58 04 AC DO 00005 MOVL TARGET_SPEC, R8 : 054 
57 08 AC DO 00009 MOVL NEW_TSB, R7 : 054 
59 04 A? YE 0000D MOVAB 4(R7), R9 : 054 
O0E4 8F 00 6E 2 2c Ae MOVCS #0, (SP), #0, #228, (R7) ; 055 
58 04 AY YE 00019 MOVAB 4(R9), R11 ; 0558 
6B 54 AZ? YE 0001D MOVAB 84(R75, (R11) : 
5A 04 A&B 00 ones OVL 4(R8), SPEC_PTR ; 0562 | 
56 68 3C 00025 MOVZWL (R8), SPEC_END_PTR ; 0563 | 
56 5A CO 00028 DOL SPEC_PTR, SPEC-END_PTR $ 
06 ~=«o«BB8 68 0000° CF 02 39 BO Oee MATCHC #2, P.AAA, (RB), a4(R8) : 0566 
03 13 000 BEQL 1$ § 
53 02 00 Ht MOVL ase R3 F 
53 0 £s 00038 1$ SUBL2 #2, R3 3 
48 12 00038 BNEQ 4$ 3 
58 0000G CF 3C 0003D MOVZWL PHNSGQ_NODE_NAME, R8 ; 0571 
23 13 00042 BEQL 2$ ; 
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PUBSUBS UBSUBS = Subroutines for Handling PUBs 16-Sep-1984 02:17:10 AX-11 Bliss=-32 V4.0-742 
v04-000 PHNSREDUNDANY cUCheek, for Redundegt task 1ex808- 1382 93:bgik9 =| HaMone BhcSBuaeuse e304 
: 4 86 8 1 Fs Rsbttl "PHNSREDUNDANT = Check for Redundant Link’ 
: 309 0631 1! "Funct tonal Description: 
: 10 06 ¢ a4 his routine is called to check for a redundant Link, that is, 
: 311 0633 1 | a link with a person who is already linked to. The PUB being 
: 318 te } checked is assumed to still be temporary! 
: 314 0636 1 | Formal Parameters: 
: $2 poe? ! Address of PUB for Link that might be redundant. 
: 317 0639 1: Implicit Inputs: 
ee et oe 
: 320 0642 1 | Implicit Outputs: 
: 35} Reet ' global data 
: 323 0645 1 | Returned value: 
: $e pees i ; true if Link is redundant, false otherwise. 
; $59 Ree : & Side Effects: 
: 328 0650 1 I- 
s Se 0651 1 
: 330 0652 1 
3 33) oth 3 global routine phn$redundant(the_pub) = begin 
: 333 0655 2 bind 
: $30 p628 § tp = .the_pub: pub; 
: 336 0658 2 local 
3 337 0659 2 p: ref pub; 
: 338 0660 2 
; 339 0661 2 
: 340 0662 2! Beotestty, we just search all non-temporary PUBs for one with the same 
; oa 0663 2! target. We don't search ours, however, because we do want to allow 
; z0§ goes .+ ! the user to call him/herself once. 
; 344 0666 2p = ;Phn$aq_ pubhead(0); 
: 345 0667 3 until .p eqla phnéga.. pubhead do ( 
: 346 0668 3 Pit not .pCpub_v stemporery) ap 
s -r 0669 3 phn$cmp_target (pLpub As tpCpub_b_tsb]) then 
: 348 pee ; return true; 
i 330 bore 5 p = .pCpub_l_flink]; 
: 358 0674 2 ° 
; $22 pore § return false; 
: 355 0677 1 end; 
0004 00000 -ENTRY PHNSREDUNDANT, Save R2 
52 0000G DF 00 BO 00s MOVL @PHN$GQ_PUBHEAD, 
50 0000G CF 9E 00007 1%: MOVAB PHN$GQ “PUBHEAD. RO 
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PUBSUBS PUBSUBS = Subroutines for Handling PUBs 16-Sep-1984 0 AX=-11 + s-32 V4.0-742 P 13 

v04-000 PHNS CONVERS ING - Is Conversation an Progress? 14- gep-19 4 05:45 48 PHONE .SRC JPUBSUBS .B32;1 — (8) 
: ef b67 1 Rsbttl *PHNSCONVERSING = Is Conversation in Progress?’ : 
: 26 0680 1 “Funetionet Description: : 
; 0681 1! This routine is called to find out if there is a conversation ; 
; 36) bess 1! currently in progress. Such is the case unless every PUB is : 
: ? et : ; either temporary, we have on hold, or has us on hold. : 
: 306 eH ! ; Formal Parameters: : 
; non 3 
: 366 0687 1! ; 
5 Ser 0688 1! Implicit Inputs: $ 
oy es Beta wen oe | 
: 370 0691 1! Implicit Outputs: : 
: ya! +94 : } global data : 
: 338 0694 1 | Returned Value : 
: ge Ren? : : ¥ conversation in progress, 0 otherwise. : 
: 376 0697 4 Side Effects: : 
: 378 0699 1 i- : 
‘ ie 0700 1 s 
; 380 0701 #1 3 
; 381 4 $ global routine phn$conversing = begin : 
: 383 0704 2 local : 
> 384 0705 2 p: ref pub; 3 
, Jee 0706 2 3 
: 386 0707 2 3 
: 387 0708 2! Basically. we just search every PUB (but not our own) to see if 3 
; $60 OO :! ! any of them are in conversation with us. F 
: 390 0711 é p = ..phn$gq_pubhead(0]; : 
; wy 0712 until .p eqla phn$gq pubhead do ( 5 
; 392 0713 3 if not .pCpub_v_temporary] and 3 
; 393 0714 3 not .pCpub_v_uhaveheld] and 3 
: 394 0715 3 not .pCpub_v_hasuheld) then F 
: $2 Bris H return true; : 
; 397 0718 3 ; p = .pCpub_l_flink]; ; 
: 399 0720 2° : 
: £00 b7s3 § return false; g 
> 402 0723 1 end; F 
0000 00000 .ENTRY PHNSCONVERSING, Save nothing : 0702 : 
51 0000G DF 00 BON0s MOVL @PHNS$GQ_PUBHEAD, P ; 0711 : 
50 0000G CF 9€ 00007 1$: MOVAB PHN$GQ _PUBHEAD, RO ; 0712 3 
50 51 D1 ett CMPL P, RO ~ 3 3 
19 13 OOOOF BEQL 3 s 3 
50 OOFO C1 9E 00011 MOVAB 240(P), RO ; 0713 : 


po 
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PUBSUBS PUBSUBS = Subroutines for mene ng PUBs 18-Sep-1984 0 10:10 AX=11 Oh igerze V4.0-742 Page 14 
v04-000 PHNSCONVERSING = Is Conversation in Progress? 14-Sep-1984 12:53:31 PHONE .SRC JPUBSUBS .B32;1 (8). 
0B 60 02 €0 00016 BBS #2, (RO), 2$ : 

08 60 E8 QOOIA BLBS (RO), 3 0714. 
04 60 01 €0 00010 BBS #1, (RO), 2$ 3 0715. 
50 01 p00 00021 MOVL #1, RO 3 0716) 
04 00024 RET : 

51 61 00 00025 2$ MOVL (P), P 3; 0718 

DD 11 00028 BRB 1$ ; 0712 

50 D4 0002A 3$: CLRL RO ; 0721 

04 0002C RET 3 0723 


; Routine Size: 45 bytes, Routine Base: $CODE$ + 023F 
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VO« ~000 CMP_TARGET = Compare TSB Targets 14-Sep-1984 12:53:31 PHONE .SRCJPUBSUBS.B32; 1 
tpe sbttl *PHNSCMP_TARGET = Compare TSB Targets’ 
406 Functional Description: 


This routine is called to compare the targets specs in two TSBs. 


408 The portion compared consists of the home node and the user name. 


Formal Parameters: 
tsb1,tsb2 The addresses of the TSBs to be compared. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: é 
true if targets are equal, false otherwise. 


Side Effects: 
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global routine phn$cmp_target(tsb1,tsb2) = begin 
bind 
the_tsbl = .tsbi: tsb, 
the_tsb2 = .tsb2: tsb, 
home_nodel_dsc = the_tsbiCtsb_q_tkndsc,.the_tsbiCtsb_w_tkncount]-1]: descriptor, 
user_namel_dsc = the_tsbiltsb_q_tkndsc,.the_tsbi(tsb_w_tkncount]]: descriptor, 
home_node2_dsc = the_tsb2(tsb_q_tkndsc,.the_tsb2[tsb_w_tkncountJ-1]: descriptor, 
rt user_name2_dsc = the_tsb2[tsb_q_tkndsc,.the_tsb2[tsb_w_tkncountJ]]: descriptor; 
439 return 
440 chSeql{.hone_node] dec Lone .user none} _dect Len}, .hene_nede]_dsciptrd. 
rh | shone_nodec_dact lends .user named sc Len],.home_node2_dsc(ptr], 
443 ’ 
444 end; 
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50 02 _A3 iS 001 MOVZWL 
52 FC A340 7E 0001 OVAQ 
56 65 He 001C MOVZWL 
04 A441 = 7F OOOIF PUSHAQ 
51 9E 3C bese MOVZWL 
51 56 CO 00026 ADDL2 
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PUBSUBS PUBSUBS - Subroutines for Handling PUBs 1b-Se -1984 02:17:10 AX-11 Bliss-32 V4.0-742 Pa 17 S 
v04-000 PHNSKILL_PUB = Kill Obsolete PUB” 1orgeb 7198 95:45:39 BNO. She SBuasuas 93244 10. vl 
: rr | ’ §763 ! Rsbttl "PHNSKILL_PUB = Kill Obsolete PuB' 
: 448 0767 1 | Functional Description: 
; 449 0768 1! This routine is called to deallocate an obsolete PUB. We unhook 
; 450 0769 1! it from the PUB chain, deallocate any CTL buffers hanging off it, 
: te) gree : } and free it up. 
: re Ore 1 i Formal Parameters: 
> 454 07735 1! obsolete_pub The address of the obsolete PUB. It is assumed to 
: rH gree : } still be in the PUB chain. 
: ret p78 ! ; Implicit Inputs: 
: 489 0778 1 | deg ina: 
; 460 0779 1°! Implicit Outputs: 
: rhe ths : global data 
; 463 Orbe | | Returned Value: 
3 ! non 
: 465 0784 1! 
; reg 4444 ! Side Effects: 
; 468 0787 1 I-- | 
: 469 0788 1 | 
: 470 0789 1 ‘ 
: ri ta $ global routine phn$kill_pub(obsolete_pub): novalue = begin 
: 473 0792 2 Local | 
3 rh 185, § status: Long. 
3 : re . 
3; 476 0795 2 + ref etl: 
3: 477 0796 2 
: 478 0797 2 
: rth 444 § ! We begin by removing the obsolete PUB from the PUB chain. | 
; re HI p809 § remque(.obsolete_pub,p); | 
; oar it 2 ! Now we remove and kill any CTL buffers hanging off the PUB. | 
: 485 0804 $ while not remque(.pCpub_q.ctlhead0],c) do 
: re pepe § phn$kill_ctl(.c); 
; rt 74 +44 2 ! Now we can free up the memory occupied by the PUB. | 
: 490 0809 $ status = Lib$free_vm(pCpub_l_length].p); | 
: $33 bats § check (.status); 
> 493 0812 2 return; 
> 494 0813 2 
3: 4495 0814 1 end; 
| 
0004 00000 -ENTRY PHNSKILL_PUB, Save R2 ; 0790 | 
7 04 BC OF 00002 REMQUE @0BSOLETE_PUB, P ; 0800 | 
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SUBS PUBSUBS = Subroutines for Handi tng PUBs ; 1973007138 0g:12:10 AX-11 Bliss-32 V4.0-742 
v04-000 PHNSMAKE_CTL = Create a Conversation Text Line 14-Sep-1984 12:53: PHONE .SRC JPUBSUBS.B32;1 

$32 0815 Rsbttl "PHNSMAKE_CTL = Create a Conversation Text Line’ 
499 i Functional Description: nye 

This routine is called to allocate and initialize a new Conversation 

Text Line (CTL) buffer. 

Formal Parameters: 
Line_text Address of descriptor of text to go in CTL tional). 
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= (op 
ctl_address Address of longword in which to return CTL address. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine phn$make_ctl(line_text,ctl_address): novalue = begin 


bind . . : 
Line_text_dsc = .line_text: descriptor; 


own 
sequence_stamp: long initial(0); 
local 
status: long, 
c: ref ctl; 
builtin 


nul lparameter; 


! We begin by allocating memory for the CTL. 


status = Lib$get_vm(Zref(ctl_k_size),c); 
check (.status); 


! Now we initialize the CTL by filling in its length, the sequence 
! stamp (so we can tell the order in which CTLs were created), and the 
! Line text if specified. 


cfctt 1 lengthd = ctl_k_size; 
¢ ctl=l=stamp] = inc Ts€quence_stamp); 
egin 


bind : ? 
Line_dsc = c{ctl_q_line]: descriptor; 


Line_dsc(0,0,32,0] = 0; 
if not nul (parameter (1) then ( 
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v04-000 PHNSMAKE_CTL = Create a Conversation Text Line 14-Sep-1984 12:53:31 

; 556 0872 4 ch$move(,line_text_dscClen],.line_text_dscCptrJ,c(ctl_t_linebuf]); 
; 555 0873 4 Line_dscllen]~= [Vne, tent dect iehi: Ate she 
$ 6336 0874 ; bs 

37 0875 Line_dscCptr] = c{ctl_t_linebuf]; 

ee. 0876 2 end; 

; 339 0877 § 

; 560 0878 ! Finally, return the CTL address as requested. 

3 (381 0879 2 

; 562 0880 2 .ctl_address = .c; 

5 S62 0881 2 return; 

> 564 0882 2 

> 565 0883 1 end; 


00000000 00000 SEQUENCE_STAMP: 
~ LONG 


01FC 00000 

5E 08 C2 00002 

58 04 AC 00 00005 

04 AE 9F 00009 

04 AE 67 8F 9A 0000C 

04 AE 9F 00011 

000000006 00 O02 FB 00014 

09 50 €8 0001B 

50 DD OOO1E 

000000006 00 01 FB 00020 
57 04 AE 00 00027 1$: 

08 A? 67 8F 9A 00028 

50 0000° CF 01 C1 00030 

0000" CF 50 DO 00036 

Oc A? 50 00 00038 

56 10 A? 9E 0003F 

66 04 00043 

6C 95 00045 

OE 13 00047 

04 AC b 00049 

09 13 0004C 

18 A? 04 B68 68 28 0004E 

66 68 BO 00054 
04 A6 18 A? YE 00057 2s: 

08 BC 57 00 0005C 

04 00060 


; Routine Size: 97 bytes, Routine Base: $CODE$ + 02E8 


«PSECT 


~PSECT 


SOWNS , NOEXE,2 

0 

SCODES,NOWRT,2 

PHNSMAKE_CTL, Save R2,R3,R4,R5,R6,R7,R8 
LINE_TEXT, R8 

#103, 4(SP) 

4(SP 

#2, LIBSGET_VM 

STATUS, 1$ 


STATUS 
#1, LIBSSIGNAL 


@4(R8), 24(R7) 
(R6) 


4(R6) 
TL_ADDRESS 


o~ 


Pa 20 
8 tt) 


ccc 
; 
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v04-000 PHNSKILL_CTL = Deallocate Dead CT 14-Sep-1984 12:53:31 CPHONE . SRCJPUBSUBS .B32; 1 (12) 
; 267 tt: 1 7 Bsbttl *PHNSKILL_CTL = Deallocate Dead CTL' 
: 569 0886 1 | "Funetiqnet Description: 
: S7O 0887 1! This routine is called to deallocate an obsolete CTL. We just 
: ye tt4 : free up its memory. 
: 378 0890 1 | Formal Parameters: 
: are tHe : obsolete_ctl The address of the obsolete CTL. 
: 576 §B98 1 ' Implicit Inputs: 
Set 8 | Bit oakeen 
: 579 0896 1 ! Implicit Outputs: 
: ee +944 : global data 
: 286 94 : ; Returned Value: 
: 584 0901 1! 
: + ¥4 oa) : i$ Side Effects: 
: 587 0904 1 I- 
: #588 0905 1 
; 589 0906 1 
: sey 3444 ¢ global routine phn$kill_ctl(obsolete_ctl): novalue = begin 
: $92 0909 2 bind 
: 34 bale § c = .obsolete_ctl: ctl; 
: 595 0912 2 local 
3 238 Rez § status: long; 
: 598 0915 2 
; 599 0916 2 status = Lib$free_vm(c(ctl_l_length],obsolete_ctl); 
; et oat § check (.status); 
° re rn; 
: 602 19 5°. 
; 603 0920 1 end; 
0000 00000 ENTRY PHNSKILL_CTL, Save nothing : 0907 
04 AC 9F BO 008 PUSHAB OBSOLETE -CTL ; 0916. 
E 04 AC 08 C1 0000 DDL #8, OBSOCETE_CTL, -(SP) ; 
00000000G 00 02 FB QOO0A CALLS #2, LIBSFREE_VM : 
09 50 €8 00011 LBS STATUS, 1$ ; 0917) 
50 DD 00014 PUSHL STATU : 
00000000G 00 01 FB 00016 CALLS #1, LIBSSIGNAL ; 
04 0001D 1$: RET : 


0920 
; Routine Size: 30 bytes, Routine Base: $CODE$S + 0349 


; 604 0921 1 
; 605 0922 0 end eludom 
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PUBSUBS PUBSUBS = Subroutines for pengt inp PUBs 1p~300" 138? 96 17 
v04-000 PHNSKILL_CTL = Deallocate Dead CT 14-Sep-1984 12:53 
~EXTRN 

3 PSECT SUMMARY 

: Name Bytes Attributes 

: $CODES$ 871 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, 

: SPLITS 4 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, R 
; SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, 

; Library Statistics 

fe A eg Se Re nee Coe Symbols ocoor=-- Pages 
: File Total Loaded Percent Mapped 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 0 581 

$ COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PUBSUBS/OBJ=O0BJ$:PUBSUBS MSRC$:PUBSUBS/UPDATE=(ENH$:PUBSUBS) 
3; Size: 871 code + 8 data bytes 

; Run Time: 00:13.3 

; Elapsed Time: 00:52.7 

: Lines/CPU Min: 4162 

; Lexemes/CPU-Min: 32641 

g ery Used: 175 pages 

; Compilation Complete 
i 


REL, 
REL, 


30 AX=11 Bliss-32 V4.0-742 
731 PHONE . SRC JPUBSUBS .B32; 1 
LIB$SIGNAL 


Processing 
Time 


00:00.8 


roe 
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